
DEFINE BUFFER a FOR sct_det.
DEFINE BUFFER b FOR sct_det.
    
FOR EACH a NO-LOCK WHERE a.sct_sim = "standard" AND a.sct_site = "500",
    EACH b NO-LOCK WHERE b.sct_sim = "Current" AND b.sct_part = a.sct_part AND b.sct_site = a.sct_site,
    EACH pt_mstr NO-LOCK WHERE pt_part = a.sct_part:

    IF (abs(a.sct_mtl_tl - b.sct_mtl_tl) / a.sct_mtl_tl) > 0.01 
        OR abs(a.sct_lbr_tl - b.sct_lbr_tl) / a.sct_lbr_tl > 0.01 THEN
       DISP a.sct_part pt_pm_code pt_part_type a.sct_site abs(a.sct_mtl_tl - b.sct_mtl_tl) / a.sct_mtl_tl 
            a.sct_sim a.sct_mtl_tl a.sct_lbr_tl b.sct_sim b.sct_mtl_tl b.sct_lbr_tl

        WITH STREAM-IO WIDTH 200.

END.
